home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / atom_g.dxr / 00007_Actual Moton of Atoms.ls < prev    next >
Encoding:
Text File  |  1996-09-01  |  946 b   |  29 lines
  1. on exitFrame
  2.   global EndPt, loop, ContactPt, result, CentreX, CentreY, A1X, A1Y, A2X, A2Y, A3X, A3Y
  3.   cursor(200)
  4.   if loop = EndPt then
  5.     AfterTest()
  6.     exit
  7.   end if
  8.   set loop to loop + 1
  9.   if loop = value(ContactPt) then
  10.     if value(result) = 0 then
  11.       puppetSound("NoReact")
  12.     end if
  13.     if value(result) = 1 then
  14.       puppetSound("React")
  15.     end if
  16.     if value(result) = 2 then
  17.       puppetSound("HExchange")
  18.     end if
  19.   end if
  20.   set the locH of sprite 6 to integer(CentreX + (50 * line loop of A1X))
  21.   set the locV of sprite 6 to integer(CentreY + (55 * line loop of A1Y))
  22.   set the locH of sprite 7 to integer(CentreX + (50 * line loop of A2X))
  23.   set the locV of sprite 7 to integer(CentreY + (55 * line loop of A2Y))
  24.   set the locH of sprite 8 to integer(CentreX + (50 * line loop of A3X))
  25.   set the locV of sprite 8 to integer(CentreY + (55 * line loop of A3Y))
  26.   puppetTempo(10 * (value(Energy) + 1))
  27.   go(the frame)
  28. end
  29.